!
!  Program to test object composition from Fortran
!
      program main

#include <petsc/finclude/petscsys.h>
      use petscsys
      implicit none

      PetscErrorCode                 ierr
      PetscViewer                    o1, o2, o3
      character*(4) name
      PetscCopyMode :: mode = PETSC_COPY_VALUES

      PetscCallA(PetscInitialize(ierr))
      PetscCallA(PetscViewerASCIIOpen(PETSC_COMM_WORLD,"stdout",o1,ierr))
      PetscCallA(PetscViewerASCIIOpen(PETSC_COMM_WORLD,"stderr",o2,ierr))
      name = 'matt'
      PetscCallA(PetscObjectCompose(o1,name,o2,ierr))
      PetscCallA(PetscObjectQuery(o1,name,o3,ierr))
      PetscCheckA(o2 .eq. o3,PETSC_COMM_SELF,PETSC_ERR_PLIB,'PetscObjectQuery failed')

      if (mode .eq. PETSC_COPY_VALUES) then
         PetscCallA(PetscViewerDestroy(o1,ierr))
      endif
      PetscCallA(PetscViewerDestroy(o2,ierr))
      PetscCallA(PetscFinalize(ierr))
      end

!
!/*TEST
!
!   build:
!     requires: defined(PETSC_HAVE_FORTRAN_TYPE_STAR)
!
!   test:
!     suffix: 0
!     output_file: output/empty.out
!
!TEST*/
